home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / promal-sieve.s < prev    next >
Text File  |  2007-02-28  |  514b  |  39 lines
  1. PROGRAM SIEVE
  2.  
  3. INCLUDE LIBRARY
  4.  
  5. CON WORD SIZE=1000        
  6. BYTE FLAGS[SIZE]
  7. WORD ITER 
  8. WORD COUNT
  9. WORD I
  10. WORD K
  11. WORD PRIME
  12.  
  13. BEGIN
  14. PUT "SIEVE TEST",CR
  15. PUT "ARRAY SIZE:   1000",CR
  16. PUT "NUMBER ITERATIONS:  10",CR
  17. ;
  18. FOR ITER=1 TO 10 
  19.   OUTPUT "#C LOOP #I",ITER
  20.   FOR I=0 TO SIZE
  21.     FLAGS[I]=1
  22.     COUNT=0
  23.   FOR I=0 TO SIZE
  24.     IF FLAGS[I]
  25.       PRIME=I+I+3
  26.       K=I+PRIME
  27.       ;
  28.       WHILE K<=SIZE
  29.         FLAGS[K]=0 ;FALSE
  30.         K=K+PRIME
  31.       ;
  32.       COUNT=COUNT+1
  33.     ;
  34.   ;
  35. ;
  36. OUTPUT "#C COUNT=#I",COUNT
  37. END
  38.  
  39.